home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / bbbbs85.lha / rexx / Increment.rexx < prev    next >
OS/2 REXX Batch file  |  1994-11-10  |  218b  |  12 lines
  1. /* $VER: Increment.rexx 8.3 (9.11.94) */
  2.  
  3. NUMERIC DIGITS 14
  4. ARG prg
  5. x=STATEF(prg)
  6. IF x='' THEN EXIT
  7. num=WORD(x,8)
  8. IF ~DATATYPE(num,'W') THEN num=0
  9. ADDRESS COMMAND 'filenote' prg '22'x||num+1'22'x
  10.  
  11. /* Increment.rexx */
  12.